home *** CD-ROM | disk | FTP | other *** search
/ The Games Machine 129 / XENIATGM129.iso / Goodies / Startopia - The Targatelli Affair / Targatelli.exe / New Mobsters Mission / 00 / mobsters00.txt
Text File  |  2001-10-16  |  15KB  |  491 lines

  1. :MOBINITIALISE
  2. if
  3.     turn > 10
  4. then
  5.     set mobrotations 7200
  6.     set reply10 3
  7.     set reply11 3
  8.     set reply12 3
  9.     disable
  10. end
  11.  
  12.  
  13.  
  14. ;THE TARGATELLI************************************************************************
  15. ;This determines when the Targatelli arrive. The higher the player's energy and population, the quicker they arrive.
  16. :targatelli100
  17. if
  18.     human = 1
  19.     ((normal_peep_count * 1000) + energy) > 250000
  20. then
  21.     incoming local_comms respond reply10 within 640 icon 4 "THE TARGATELLI: Hey. How're you doing? Say, it's a nice business you got goin' here. You want we should, ah, insure it for ya? Give us 1000e every once in a while and nothing bad will happen here. Space is a dangerous place. You get my meanin'?"
  22.     set insurance 1
  23.     set visit (visit +1)
  24.     disable
  25. end
  26.  
  27. :targatelli140
  28. if
  29.     turn > 100
  30.     sting = 0
  31.     turn > targatellicount
  32.     targatellicount > 0
  33.     insurance = 0
  34. then
  35.     set insurance 1
  36.     incoming local_comms respond reply10 within 640 icon 4 "THE TARGATELLI: So, you changed your mind yet, hotshot? You gonna take our generous offer of insurance?"
  37.     set targatellicount 0
  38. end
  39.  
  40. :targatelli110
  41. if
  42.     sting = 0
  43.     reply10 < 2
  44.     insurance = 1
  45. then
  46.     incoming local_comms respond reply11 within 640 icon 4 "THE TARGATELLI: Way I see it, you could have a lotta enemies in this part of space. And some of my cloneys ain't as nice as me. So do yourself a favour. Take the insurance, eh?"
  47.     set insurance 2
  48.     set reply10 3
  49. end
  50.  
  51. :targatelli130
  52. if
  53.     targrand04 = 0
  54.     reply11 < 2
  55.     insurance = 2
  56. then
  57.     incoming local_comms within 640 icon 4 "THE TARGATELLI: Hey, big-shot. Your choice. Don't say I never gave you no warning, though."
  58.     set snub (snub + 1)
  59.     set insurance 0
  60.     set reply11 3
  61.     set targatellicount (turn + mobrotations)
  62.     set thugs (thugs + 1)
  63.     set thugcount 0
  64.     set visit (visit +1)
  65.     set targrand04 (rnd%3)
  66. end
  67.  
  68. :VALwarning01
  69. if
  70.     insurance > 0
  71. then
  72.     say "VAL: The Targatelli seem like bad news. Be extremely careful in your dealings with them."
  73.     disable
  74. end
  75.  
  76. :VALwarning02
  77. if
  78.     snub > 1
  79. then
  80.     say "VAL: Perhaps you should have paid them. I hope you're on top of the situation. I heard that that the Targatelli dump their enemies, encased in plasticrete, in the Colonic Irrigation system on the planet Recktumm."
  81.     disable
  82. end
  83.  
  84. :VALwarning03
  85. if
  86.     snub > 2
  87. then
  88.     say "VAL: Word on the spacelanes is Kasvagorian warriors make supreme security guards. Perhaps you could do a little hiring? You could protect your staff and Station against those uncouth Targatelli mobsters."
  89.     disable
  90. end
  91.  
  92. :targatelli130a
  93. if
  94.     targrand04 = 1
  95.     reply11 < 2
  96.     insurance = 2
  97. then
  98.     incoming local_comms within 640 icon 4 "THE TARGATELLI: Okay, mac. If that's what you want. I warned ya, though."
  99.     set snub (snub + 1)
  100.     set insurance 0
  101.     set reply11 3
  102.     set targatellicount (turn + mobrotations)
  103.     set thugs (thugs + 1)
  104.     set thugcount 0
  105.     set visit (visit +1)
  106.     set targrand04 (rnd%3)
  107. end
  108.  
  109. :targatelli130b
  110. if
  111.     targrand04 = 2
  112.     reply11 < 2
  113.     insurance = 2
  114. then
  115.     incoming local_comms within 640 icon 4 "THE TARGATELLI: So ya wanna play hardball, eh? You got it."
  116.     set snub (snub + 1)
  117.     set insurance 0
  118.     set reply11 3
  119.     set targatellicount (turn + mobrotations)
  120.     set thugs (thugs + 1)
  121.     set thugcount 0
  122.     set visit (visit +1)
  123.     set targrand04 (rnd%3)
  124. end
  125.  
  126. :targatelli120
  127. if
  128.     targrand05 = 0
  129.     reply10 = 2
  130.     insurance = 1
  131. then
  132.     incoming local_comms within 640 icon 4 "THE TARGATELLI: Nice doing business with ya. Keep your place nice and profitable. We'll be back in a few rotations to collect payment. Ciao."
  133.     set reply10 3
  134.     set insurance 3
  135.     set targatellicount (turn + (mobrotations / 5))
  136.     set visit (visit +1)
  137.     set targrand05 (rnd%3)
  138. end    
  139.  
  140. :targatelli120a
  141. if
  142.     targrand05 = 1 
  143.     reply10 = 2
  144.     insurance = 1
  145. then
  146.     incoming local_comms within 640 icon 4 "THE TARGATELLI: Nice one. You and me, we understand each other. See ya later, pal."
  147.     set reply10 3
  148.     set insurance 3
  149.     set targatellicount (turn + (mobrotations / 5))
  150.     set visit (visit +1)
  151.     set targrand05 (rnd%3)
  152. end
  153.  
  154. :targatelli120b
  155. if
  156.     targrand05 = 2
  157.     reply10 = 2
  158.     insurance = 1
  159. then
  160.     incoming local_comms within 640 icon 4 "THE TARGATELLI: That's real good, see. You pay us and nobody gets hurt. Nice. We'll see ya soon."
  161.     set reply10 3
  162.     set insurance 3
  163.     set targatellicount (turn + (mobrotations / 5))
  164.     set visit (visit +1)
  165.     set targrand05 (rnd%3)
  166. end
  167.  
  168. :thugs100a
  169. if
  170.     deckchoice = 0
  171.     sting = 0
  172.     thugs > thugcount
  173. then
  174.     place_peep ((rnd%4) + 5) assassin skill 5 mood body 10000 xthugcoorda ythugcoorda sub_deck 1024
  175.     place_peep ((rnd%4) + 5) saboteur skill 5 mood body 10000 xthugcoordb ythugcoordb sub_deck 1024
  176.     place_peep targ assassin skill 5 mood body 10000 infected 4 xthugcoordc ythugcoordc sub_deck 1024
  177.     set thugcount (thugcount + 3)
  178.     set deckchoice (rnd%3)
  179. end
  180.  
  181. :thugs100b
  182. if
  183.     deckchoice = 1
  184.     sting = 0
  185.     thugs > thugcount
  186. then
  187.     place_peep ((rnd%4) + 5) assassin skill 5 mood body 10000 xthugcoorda ythugcoorda mid_deck 1024
  188.     place_peep ((rnd%4) + 5) saboteur skill 5 mood body 10000 xthugcoordb ythugcoordb mid_deck 1024
  189.     place_peep targ assassin skill 5 mood body 10000 infected 4 xthugcoordc ythugcoordc mid_deck 1024
  190.     set thugcount (thugcount + 3)
  191.     set deckchoice (rnd%3)
  192. end
  193.  
  194. :thugs100c
  195. if
  196.     deckchoice = 2
  197.     sting = 0
  198.     thugs > thugcount
  199. then
  200.     place_peep ((rnd%4) + 5) assassin skill 5 mood body 10000 xthugcoorda ythugcoorda bio_deck 1024
  201.     place_peep ((rnd%4) + 5) saboteur skill 5 mood body 10000 xthugcoordb ythugcoordb bio_deck 1024
  202.     place_peep targ assassin skill 5 mood body 10000 infected 4 xthugcoordc ythugcoordc bio_deck 1024
  203.     set thugcount (thugcount + 3)
  204.     set deckchoice (rnd%3)
  205. end
  206.  
  207. :thugplacementrandomiser
  208. if
  209.     turn > thugrandomiser
  210. then
  211.     set xthugcoorda (rnd % 16)
  212.     set ythugcoorda (rnd % 32)
  213.     set xthugcoordb (rnd % 16)
  214.     set ythugcoordb (rnd % 32)
  215.     set xthugcoordc (rnd % 16)
  216.     set ythugcoordc (rnd % 32)
  217.     set xthugcoordd (rnd % 16)
  218.     set ythugcoordd (rnd % 32)
  219.     set thugrandomiser (turn + 2400)
  220. end    
  221.  
  222.  
  223. ;Increase these values to increase the maximum number of thugs in later Targatelli reprisals
  224. :thugs200
  225. if
  226.     sting = 0
  227.     thugs > (segmentdecks * 2)
  228. then
  229.     set thugs (segmentdecks * 2)
  230. end
  231.     
  232.  
  233. :targatelli150
  234. if
  235.     targrand06 = 0
  236.     sting = 0
  237.     insurance = 3
  238.     turn > targatellicount
  239.     targatellicount > 0 
  240. then
  241.     incoming local_comms respond reply12 within 640 icon 4 "THE TARGATELLI: Ya got the money? The 1000e?"
  242.     set targatellicount 0
  243.     set insurance 4
  244.     set targrand06 (rnd%3)
  245. end
  246.  
  247. :targatelli150a
  248. if
  249.     targrand06 = 1
  250.     sting = 0
  251.     insurance = 3
  252.     turn > targatellicount
  253.     targatellicount > 0 
  254. then
  255.     incoming local_comms respond reply12 within 640 icon 4 "THE TARGATELLI: Where's the dough? The energy? You got it?"
  256.     set targatellicount 0
  257.     set insurance 4
  258.     set targrand06 (rnd%3)
  259. end
  260.  
  261. :targatelli150b
  262. if
  263.     targrand06 = 2
  264.     sting = 0
  265.     insurance = 3
  266.     turn > targatellicount
  267.     targatellicount > 0 
  268. then
  269.     incoming local_comms respond reply12 within 640 icon 4 "THE TARGATELLI: You got the 10 big ones of energy? Gimme it!"
  270.     set targatellicount 0
  271.     set insurance 4
  272.     set targrand06 (rnd%3)
  273. end
  274.  
  275. :targatelli160
  276. if
  277.     targrand07 = 0
  278.     reply12 < 2
  279.     insurance = 4
  280. then
  281.     incoming local_comms within 640 icon 4 "THE TARGATELLI: Listen. Lemme tell ya it ain't smart to go up against the Targatelli Family. The Podfather got a long memory, see? And although eight thousand of us Podfellas are in jail, we still got six thou' clones on the outside. So you better keep an eye on your place here. Be real sad if something bad happened."
  282.     set snub (snub + 1)
  283.     set insurance 3
  284.     set reply12 3
  285.     set targatellicount (turn + mobrotations)
  286.     set thugs (thugs + 1)
  287.     set thugcount 0
  288.     set visit (visit +1)
  289.     set targrand07 1
  290.     disable
  291. end
  292.  
  293. :targatelli160a
  294. if
  295.     targrand07 = 1
  296.     reply12 < 2
  297.     insurance = 4
  298. then
  299.     incoming local_comms within 640 icon 4 "THE TARGATELLI: They say space is cold this time of year. You sure wanna find out, don't ya? Take some advice. Never mess with the Targatelli Family, pal."
  300.     set snub (snub + 1)
  301.     set insurance 3
  302.     set reply12 3
  303.     set targatellicount (turn + mobrotations)
  304.     set thugs (thugs + 1)
  305.     set thugcount 0
  306.     set visit (visit +1)
  307.     set targrand07 ((rnd%2) + 1)
  308. end
  309.  
  310. :targatelli160b
  311. if
  312.     targrand07 = 2
  313.     reply12 < 2
  314.     insurance = 4
  315. then
  316.     incoming local_comms within 640 icon 4 "THE TARGATELLI: Jeez, you tired of living or what? You carry on and me and several hundred of my brothers gonna come looking for ya. And it ain't to give ya a birthday present, lemme tell ya."
  317.     set snub (snub + 1)
  318.     set insurance 3
  319.     set reply12 3
  320.     set targatellicount (turn + mobrotations)
  321.     set thugs (thugs + 1)
  322.     set thugcount 0
  323.     set visit (visit +1)
  324.     set targrand07 ((rnd%2) + 1)
  325. end
  326.  
  327. :targatelli170
  328. if
  329.     targrand08 = 0
  330.     energy > 999
  331.     insurance = 4
  332.     reply12 = 2
  333. then
  334.     incoming local_comms within 640 icon 4 "THE TARGATELLI: Nice working with ya. We'll be back in a few rotations. Keep out of trouble, my friend."
  335.     set insurance 3
  336.     set reply12 3
  337.     set targatellicount (turn + (mobrotations * 2))
  338.     addenergy (0 - 1000)
  339.     set visit (visit +1)
  340.     set targrand08 (rnd%3)
  341. end
  342.  
  343. :targatelli170a
  344. if
  345.     targrand08 = 1
  346.     energy > 999
  347.     insurance = 4
  348.     reply12 = 2
  349. then
  350.     incoming local_comms within 640 icon 4 "THE TARGATELLI: You and me. We got an understanding. That's real nice. See ya in a while."
  351.     set insurance 3
  352.     set reply12 3
  353.     set targatellicount (turn + (mobrotations * 2))
  354.     addenergy (0 - 1000)
  355.     set visit (visit +1)
  356.     set targrand08 (rnd%3)
  357. end
  358.  
  359. :targatelli170b
  360. if
  361.     targrand08 = 2
  362.     energy > 999
  363.     insurance = 4
  364.     reply12 = 2
  365. then
  366.     incoming local_comms within 640 icon 4 "THE TARGATELLI: That's how it works. You pay, and no-one gets hurt. Let's keep it that way. See ya around."
  367.     set insurance 3
  368.     set reply12 3
  369.     set targatellicount (turn + (mobrotations * 2))
  370.     addenergy (0 - 1000)
  371.     set visit (visit +1)
  372.     set targrand08 (rnd%3)
  373. end
  374.  
  375. :targatelli180
  376. if
  377.     targrand09 = 0
  378.     energy < 1000
  379.     insurance = 4
  380.     reply12 = 2
  381. then
  382.     incoming local_comms within 640 icon 4 "THE TARGATELLI: Hey! What's the scam? You ain't got the 1000! You better have it next time or you'll be sucking food through a proboscis for the next galactic century. You capeesh?"
  383.     set snub (snub +1)
  384.     set insurance 3
  385.     set reply12 3
  386.     set targatellicount (turn + mobrotations)
  387.     set thugs (thugs + 1)
  388.     set thugcount 0
  389.     set visit (visit +1)
  390.     set targrand09 (rnd%3)
  391. end
  392.  
  393. :targatelli180a
  394. if
  395.     targrand09 = 1
  396.     energy < 1000
  397.     insurance = 4
  398.     reply12 = 2
  399. then
  400.     incoming local_comms within 640 icon 4 "THE TARGATELLI: Where's the money? Is this a joke? Cos I ain't laughin', pal. Have it next time or else!"
  401.     set snub (snub +1)
  402.     set insurance 3
  403.     set reply12 3
  404.     set targatellicount (turn + mobrotations)
  405.     set thugs (thugs + 1)
  406.     set thugcount 0
  407.     set visit (visit +1)
  408.     set targrand09 (rnd%3)
  409. end
  410.  
  411. :targatelli180b
  412. if
  413.     targrand09 = 2
  414.     energy < 1000
  415.     insurance = 4
  416.     reply12 = 2
  417. then
  418.     incoming local_comms within 640 icon 4 "THE TARGATELLI: You trying to be clever, eh? You ain't got the thou'! Have it ready next time or you'll be takin' a little spacewalk. You get me?"
  419.     set snub (snub +1)
  420.     set insurance 3
  421.     set reply12 3
  422.     set targatellicount (turn + mobrotations)
  423.     set thugs (thugs + 1)
  424.     set thugcount 0
  425.     set visit (visit +1)
  426.     set targrand09 (rnd%3)
  427. end
  428.  
  429. :targatelli200
  430. if
  431.     visit > 2
  432.     turn > scutterwarning 
  433.     snub < 8
  434.     police_scutter_count > (segmentdecks * 2)
  435. then
  436.     incoming local_comms within 640 icon 4 "THE TARGATELLI: Hey. I hope you ain't building scuzzer boys ta protect yer stuff. We is the ones providing the insurance here, so don't forget it. Unless ya need a reminder?"
  437.     place_peep ((rnd%4) + 5) assassin skill 5 mood body 10000 xthugcoorda ythugcoorda mid_deck 1024
  438.     place_peep targ assassin skill 5 mood body 10000 infected 4 xthugcoordb ythugcoordb mid_deck 1024
  439.     place_peep ((rnd%4) + 5) assassin skill 5 mood body 10000 xthugcoordc ythugcoordc mid_deck 1024
  440.     place_peep targ assassin skill 5 mood body 10000 infected 4 xthugcoordd ythugcoordd mid_deck 1024
  441.     place_peep ((rnd%4) + 5) assassin skill 5 mood body 10000 xthugcoorda ythugcoordb sub_deck 1024
  442.     place_peep targ assassin skill 5 mood body 10000 infected 4 xthugcoordc ythugcoordd sub_deck 1024
  443.     place_peep ((rnd%4) + 5) assassin skill 5 mood body 10000 xthugcoorda ythugcoordc sub_deck 1024
  444.     place_peep targ assassin skill 5 mood body 10000 infected 4 xthugcoordb ythugcoordd sub_deck 1024
  445.     set scutterwarning (turn + 14400)
  446. end
  447.  
  448.  
  449. :SNUBMOBSTERS
  450. if
  451.     snub > 7
  452. then
  453.     incoming local_comms within 640 icon 4 "THE TARGATELLI: Looks like you messed with the Targatelli one time too many pal. Say yer prayers chump."
  454.     place_peep ((rnd%4) + 5) saboteur skill 5 mood body 10000 infected 4 xthugcoorda ythugcoorda sub_deck 1024
  455.     place_peep targ saboteur skill 5 mood body 10000 infected 4 xthugcoorda ythugcoordb sub_deck 1024
  456.     place_peep ((rnd%4) + 5) assassin skill 5 mood body 10000 xthugcoorda ythugcoordc sub_deck 1024
  457.     place_peep targ assassin skill 5 mood body 10000 xthugcoorda ythugcoordd sub_deck 1024
  458.     place_peep ((rnd%4) + 5) assassin skill 5 mood body 10000 xthugcoordb ythugcoorda mid_deck 1024
  459.     place_peep targ assassin skill 5 mood body 10000 xthugcoordb ythugcoordb mid_deck 1024
  460.     place_peep ((rnd%4) + 5) assassin skill 5 mood body 10000 xthugcoordb ythugcoordc mid_deck 1024
  461.     place_peep targ assassin skill 5 mood body 10000 xthugcoordb ythugcoordd mid_deck 1024
  462.     place_peep ((rnd%4) + 5) assassin skill 5 mood body 10000 xthugcoordc ythugcoorda mid_deck 1024
  463.     place_peep targ assassin skill 5 mood body 10000 xthugcoordc ythugcoordb mid_deck 1024
  464.     place_peep ((rnd%4) + 5) assassin skill 5 mood body 10000 xthugcoordc ythugcoordc mid_deck 1024
  465.     place_peep targ assassin skill 5 mood body 10000 xthugcoordc ythugcoordd mid_deck 1024 
  466.     place_peep ((rnd%4) + 5) assassin skill 5 mood body 10000 xthugcoordd ythugcoorda mid_deck 1024
  467.     place_peep targ assassin skill 5 mood body 10000 xthugcoordd ythugcoordb mid_deck 1024
  468.     place_peep ((rnd%4) + 5) assassin skill 5 mood body 10000 xthugcoordd ythugcoordc mid_deck 1024
  469.     place_peep targ assassin skill 5 mood body 10000 xthugcoordd ythugcoordd mid_deck 1024
  470.     place_peep ((rnd%4) + 5) assassin skill 5 mood body 10000 xthugcoorda ythugcoorda bio_deck 1024
  471.     place_peep targ assassin skill 5 mood body 10000 xthugcoordb ythugcoordb bio_deck 1024
  472.     place_peep ((rnd%4) + 5) saboteur skill 5 mood body 10000 infected 4 xthugcoordc ythugcoordc bio_deck 1024
  473.     place_peep targ saboteur skill 5 mood body 10000 infected 4 xthugcoordd ythugcoordd bio_deck 1024
  474.     set sting (turn + 240)
  475.     disable
  476. end
  477.  
  478.  
  479.  
  480. ;BEAT TARGATELLI STUFF**********************************************************
  481.  
  482. :BEATTARGATELLI
  483. if
  484.     sting > 0
  485.     turn > sting
  486.     peepstat allset assassin roger < 1
  487.     peepstat allset saboteur roger < 1
  488. then
  489.     say "VAL: Good work! We busted the whole of the Targatelli Family. We shouldn't see them around for a couple of eons."
  490.     disable
  491. end